VERSION 5.00
Begin VB.UserControl VCTFormPage2 
   ClientHeight    =   1545
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2295
   ScaleHeight     =   1545
   ScaleWidth      =   2295
   Begin VCT.BarCode39Ctrl BarCode39Ctrl1 
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   873
   End
   Begin VB.Label Label1 
      Caption         =   "VCT Form Page 2"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "VCTFormPage2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

'Patient Details
Dim Loc_PatFirstName As String
Dim Loc_PatLastName As String
Dim Loc_PatNum As String
Dim Loc_PatSex As String
Dim Loc_PatDOB As String
Dim Loc_PatAge As String
Dim Loc_PatWt As String
Dim Loc_PatPctWtForAge As String
Dim Loc_PatDx1 As String
Dim Loc_PatAddress As String

Public Sub PrintSheet()


   Const FormTop = 300
   Const FormLeft = 300
   Const FormWidth = 10900
   Const FormHeight = 15700

   Const HLine1 = 3750
   Const HLine2 = HLine1 + 250
   Const HLine3 = HLine2 + 1900
   Const HLine4 = HLine3 + 300
   Const HLine5 = HLine4 + 300
   Const HLine6 = HLine5 + 300
   Const HLine7 = HLine6 + 300
   Const HLine8 = HLine7 + 5950
   
   
   Const VLine1 = 2300
   Const VLine2 = 4600
   Const VLine3 = 6850
   Const VLine4 = 8700
   
   Const VLine5 = 1500
   Const VLine6 = VLine5 + 1500
   Const VLine7 = VLine6 + 1600
   Const VLine8 = VLine7 + 1700
   Const VLine9 = VLine8 + 1500
   Const VLine10 = VLine9 + 1500

   Const VLine11 = 2500
   Const VLine12 = 5100
   Const VLine13 = 7750
   Const VLine14 = 4700
   Const VLine15 = 7400

   Printer.FontName = "Arial Narrow"
   Printer.PaperSize = vbPRPSA4   'Set printer for A4 paper
   Printer.FontBold = False
   Printer.FontItalic = False
   Printer.FontUnderline = False
   Printer.Orientation = 1
    
   Printer.DrawWidth = 8
   'draw the rectangular box
   RC = PrintRect(FormLeft, FormTop, FormWidth, FormHeight)
   'Add the horizontal lines
   Printer.Line (FormLeft, FormTop + HLine1)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine7)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine8)-Step(FormWidth, 0)
   Printer.DrawWidth = 1
   Printer.Line (FormLeft, FormTop + HLine2)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine3)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine4)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine5)-Step(FormWidth, 0)
   Printer.Line (FormLeft, FormTop + HLine6)-Step(FormWidth, 0)
   
   'last minute short lines - no constant for height
   Printer.Line (FormLeft + VLine2, FormTop + 1400)-Step(VLine3 - VLine2, 0)
   Printer.Line (FormLeft + VLine3, FormTop + 1875)-Step(VLine4 - VLine3, 0)
   Printer.Line (FormLeft + VLine4, FormTop + 2025)-Step(FormWidth - VLine4, 0)
   Printer.Line (FormLeft, FormTop + HLine7 + 4150)-Step(VLine11, 0)
   Printer.Line (FormLeft + VLine15, FormTop + HLine8 + 985)-Step(FormWidth - VLine15, 0)
   
   'Add the vertical lines
   'ROW1
   Printer.Line (FormLeft + VLine1, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine2, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine3, FormTop)-Step(0, HLine1)
   Printer.Line (FormLeft + VLine4, FormTop)-Step(0, HLine1)
   
   
   'ROW2
   Printer.Line (FormLeft + VLine5, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   Printer.Line (FormLeft + VLine6, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   Printer.Line (FormLeft + VLine7, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   Printer.Line (FormLeft + VLine8, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   Printer.Line (FormLeft + VLine9, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   Printer.Line (FormLeft + VLine10, FormTop + HLine2)-Step(0, HLine7 - HLine2)
   
   'ROW3
   Printer.Line (FormLeft + VLine11, FormTop + HLine7)-Step(0, HLine8 - HLine7)
   Printer.Line (FormLeft + VLine12, FormTop + HLine7)-Step(0, HLine8 - HLine7)
   Printer.Line (FormLeft + VLine13, FormTop + HLine7)-Step(0, HLine8 - HLine7)
   Printer.Line (FormLeft + VLine14, FormTop + HLine8)-Step(0, FormHeight - HLine8)
   Printer.Line (FormLeft + VLine15, FormTop + HLine8)-Step(0, FormHeight - HLine8)
   
   Printer.FontSize = 10
   Printer.FontBold = True
   
   'ROW 1
   'CLIENT PREVIOUSLY TESTED FOR HIV
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "26. CLIENT PREVIOUSLY"
   Printer.CurrentX = FormLeft + 380
   Printer.CurrentY = FormTop + 250
   Printer.Print "TESTED FOR HIV:"
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + 2750
   Printer.Print "WHEN:"

   'WHERE TESTED
   Printer.CurrentX = FormLeft + VLine1 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "27. WHERE"
   Printer.CurrentX = FormLeft + VLine1 + 380
   Printer.CurrentY = FormTop + 250
   Printer.Print "TESTED:"

   'HAS CLIENT EVER HAD SEX
   Printer.CurrentX = FormLeft + VLine2 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "28. HAS CLIENT"
   Printer.CurrentX = FormLeft + VLine2 + 380
   Printer.CurrentY = FormTop + 250
   Printer.Print "EVER HAD SEX:"
   
   'TOTAL NUMBER LIFETIME PARTNERS
   Printer.CurrentX = FormLeft + VLine2 + 100
   Printer.CurrentY = FormTop + 1450
   Printer.Print "29. TOTAL NUMBER"
   Printer.CurrentX = FormLeft + VLine2 + 380
   Printer.CurrentY = FormTop + 1650
   Printer.Print "SEXUAL PARTNERS"
   Printer.CurrentX = FormLeft + VLine2 + 380
   Printer.CurrentY = FormTop + 1850
   Printer.Print "IN YOUR LIFETIME:"

   'WHEN WAS LAST TIME CLIENT HAD SEX
   Printer.CurrentX = FormLeft + VLine3 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "30. WHEN WAS"
   Printer.CurrentX = FormLeft + VLine3 + 380
   Printer.CurrentY = FormTop + 250
   Printer.Print "LAST TIME"
   Printer.CurrentX = FormLeft + VLine3 + 380
   Printer.CurrentY = FormTop + 450
   Printer.Print "CLIENT HAD"
   Printer.CurrentX = FormLeft + VLine3 + 380
   Printer.CurrentY = FormTop + 650
   Printer.Print "SEX:"
   
   'EVER BEEN RAPED
   Printer.CurrentX = FormLeft + VLine3 + 100
   Printer.CurrentY = FormTop + 1925
   Printer.Print "31. EVER BEEN"
   Printer.CurrentX = FormLeft + VLine3 + 380
   Printer.CurrentY = FormTop + 2125
   Printer.Print "RAPED:"
   
   'IS THE CLIENT PREGNANT
   Printer.CurrentX = FormLeft + VLine4 + 100
   Printer.CurrentY = FormTop + 50
   Printer.Print "32. IS THE CLIENT"
   Printer.CurrentX = FormLeft + VLine4 + 380
   Printer.CurrentY = FormTop + 250
   Printer.Print "PREGNANT:"
   
   'PREVIOUS BLOOD TRANSFUSION
   Printer.CurrentX = FormLeft + VLine4 + 100
   Printer.CurrentY = FormTop + 2075
   Printer.Print "33. PREVIOUS BLOOD"
   Printer.CurrentX = FormLeft + VLine4 + 380
   Printer.CurrentY = FormTop + 2300
   Printer.Print "TRANSFUSION:"
   
   '4 MOST RECENT PARTNERS
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "a. Type:"
   
   Printer.CurrentX = FormLeft + VLine5 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "b. New Partner:"
   
   Printer.CurrentX = FormLeft + VLine6 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "c. Partner's HIV"
   Printer.CurrentX = FormLeft + VLine6 + 280
   Printer.Print "Status:"
   
   Printer.CurrentX = FormLeft + VLine7 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "d. Date of partner's"
   Printer.CurrentX = FormLeft + VLine7 + 280
   Printer.Print "last test:"
   
   Printer.CurrentX = FormLeft + VLine8 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "e. FP Method(s):"
   
   Printer.CurrentX = FormLeft + VLine9 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "f. Condom Use:"
   
   Printer.CurrentX = FormLeft + VLine10 + 100
   Printer.CurrentY = FormTop + HLine2 + 50
   Printer.Print "g. Condom used"
   Printer.CurrentX = FormLeft + VLine10 + 280
   Printer.Print "last time:"
   
   
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine3 + 35
   Printer.Print "34."
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine4 + 35
   Printer.Print "35."
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine5 + 35
   Printer.Print "36."
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine6 + 35
   Printer.Print "37."
   
   
   'SYMPTOMS OF STI
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine7 + 50
   Printer.Print "38. SYMPTOMS OF STI:"
   
   'SYMPTOMS OF TB
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine7 + 1150
   Printer.Print "39. SYMPTOMS OF TB:"
   
   'REFERRED TO CLINIC
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine7 + 2300
   Printer.Print "40. REFERRED TO CLINIC:"
   
   'CLINIC SECTION
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine7 + 4200
   Printer.Print "CLINIC SECTION"
   
   'STI DIAGNOSIS
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine7 + 4500
   Printer.Print "41. STI Diagnosis:"
   
   'TODAY'S RESULTS(S) FOR
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine7 + 50
   Printer.Print "TODAY'S RESULT(S) FOR:"
   
   'HIV
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine7 + 350
   Printer.Print "42. (1) HIV:"
   
   'COUPLE DISCORDANT
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine7 + 2100
   Printer.Print "43. (2) Couple Discordant:"
   
   'AFB
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine7 + 3575
   Printer.Print "44. (3) AFB:"
   
   'OTHER RESULTS
   Printer.CurrentX = FormLeft + VLine11 + 100
   Printer.CurrentY = FormTop + HLine7 + 5450
   Printer.Print "45. Other Results:"
   
   'TREATMENT(S) TODAY
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine7 + 50
   Printer.Print "TREATMENT(S) TODAY:"
   
   'STI TREATMENT
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine7 + 350
   Printer.Print "46. (1) STI:"
   
   'TUBERCULOSIS TREATMENT
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine7 + 1750
   Printer.Print "47. (2) Tuberculosis:"
   
   'OTHER TREATMENT
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine7 + 3600
   Printer.Print "48. (3) Other:"
   
   '# CONDOMS GIVEN BY COUNSELOR
   Printer.CurrentX = FormLeft + VLine12 + 100
   Printer.CurrentY = FormTop + HLine7 + 4750
   Printer.Print "49. # CONDOMS GIVEN"
   Printer.CurrentX = FormLeft + VLine12 + 380
   Printer.CurrentY = FormTop + HLine7 + 4950
   Printer.Print "BY CLINICAL OFFICER:"
   
   'RISK REDUCTION PLAN
   Printer.CurrentX = FormLeft + VLine13 + 100
   Printer.CurrentY = FormTop + HLine7 + 50
   Printer.Print "50. RISK REDUCTION PLAN:"
      
   'CLIENT REFERRED TO
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine8 + 50
   Printer.Print "51. CLIENT REFERRED TO:"
      
   'SERVICES RENDERED
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine8 + 50
   Printer.Print "SERVICE(S) RENDERED:"
   
   'COUNSELLED
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine8 + 300
   Printer.Print "52. Counseled:"
   
   'TESTED FOR HIV
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine8 + 1000
   Printer.Print "53. Tested for HIV:"
   
   'GAVE RESULTS
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine8 + 1700
   Printer.Print "54. Gave Results:"
   
   'OTHER
   Printer.CurrentX = FormLeft + VLine14 + 100
   Printer.CurrentY = FormTop + HLine8 + 2400
   Printer.Print "55. Other _________________"
   
   'COMDOMS GIVEN BY COUNSELOR
   Printer.CurrentX = FormLeft + VLine15 + 100
   Printer.CurrentY = FormTop + HLine8 + 50
   Printer.Print "56. # Condoms Given by Counselor:"
   
   'COUNSELOR'S COMMENTS
   Printer.CurrentX = FormLeft + VLine15 + 100
   Printer.CurrentY = FormTop + HLine8 + 1035
   Printer.Print "COUNSELOR'S COMMENTS:"

   Printer.FontSize = 11
   Printer.FontName = "Arial Narrow"
   Printer.FontBold = False

   'ROW 1
   'CLIENT PREVIOUSLY TESTED FOR HIV
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + 525
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes HIV+"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Yes HIV-"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Inconclusive"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "4 = Did not get result"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "99 = Other"
   
   
   'DATE TESTED
   Printer.CurrentX = FormLeft + 900
   Printer.CurrentY = FormTop + 3050
   Printer.Print "____/______"
   Printer.CurrentX = FormLeft + 950
   Printer.CurrentY = Printer.CurrentY + 75
   Printer.Print "MM / YYYY"

   'WHERE TESTED
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = FormTop + 525
   Printer.Print "1 = This MACRO Site"
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Other MACRO Site"
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Public Clinic/Hosp."
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "4 = Private Clinic/Hosp."
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "5 = CHAM"
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "6 = Other NGO"
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + VLine1 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "99 = Other"
   
   'HAS CLIENT EVER HAD SEX
   Printer.CurrentX = FormLeft + VLine2 + 250
   Printer.CurrentY = FormTop + 525
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine2 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   
   'TOTAL NUMBER OF LIFETIME PARTNERS
   Printer.FontItalic = True
   Printer.FontBold = True
   Printer.CurrentX = FormLeft + VLine2 + 475
   Printer.CurrentY = FormTop + 2900
   Printer.Print "Client's best"
   Printer.CurrentX = FormLeft + VLine2 + 300
   Printer.Print "estimate. If > 100,"
   Printer.CurrentX = FormLeft + VLine2 + 425
   Printer.Print "then put > 100"
   Printer.FontItalic = False
   Printer.FontBold = False
   
   'LAST TIME CLIENT HAD SEX
   Printer.CurrentX = FormLeft + VLine3 + 475
   Printer.CurrentY = FormTop + 1150
   Printer.Print "____/______"
   Printer.CurrentX = FormLeft + VLine3 + 525
   Printer.CurrentY = Printer.CurrentY + 75
   Printer.Print "MM / YYYY"
   
   'EVER BEEN RAPED
   Printer.CurrentX = FormLeft + VLine3 + 250
   Printer.CurrentY = FormTop + 2400
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine3 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   
   'IS THE CLIENT PREGNANT
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = FormTop + 525
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "97 = Don't know"
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   
   'PREVIOUS BLOOD TRANSFUSION
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = FormTop + 2550
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   Printer.CurrentX = FormLeft + VLine4 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "97 = Don't know"
   
   '4 MOST RECENT PARTNERS
   Printer.CurrentX = FormLeft + 100
   Printer.CurrentY = FormTop + HLine1 + 15
   Printer.FontItalic = True
   Printer.FontSize = 9
   Printer.Print "Four (4) most recent partners (Past 6 months)"
   Printer.FontItalic = False
   Printer.FontSize = 11

   
   'TYPE
   Printer.CurrentX = FormLeft + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "1 = Spouse"
   Printer.CurrentX = FormLeft + 150
   Printer.Print "2 = Steady"
   Printer.CurrentX = FormLeft + 150
   Printer.Print "3 = Casual"
   Printer.CurrentX = FormLeft + 150
   Printer.Print "99 = Other"
   
   'NEW PARTNER
   Printer.CurrentX = FormLeft + VLine5 + 100
   Printer.CurrentY = FormTop + HLine2 + 250
   Printer.FontSize = 10
   Printer.Print "(Past 6 months)"
   Printer.FontSize = 11
   
   Printer.CurrentX = FormLeft + VLine5 + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine5 + 150
   Printer.Print "1 = Yes"
   
   'PARTNER'S HIV STATUS
   Printer.CurrentX = FormLeft + VLine6 + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "1 = HIV +"
   Printer.CurrentX = FormLeft + VLine6 + 150
   Printer.Print "2 = HIV -"
   Printer.CurrentX = FormLeft + VLine6 + 150
   Printer.Print "97 = Unknown"
   
   'DATE OF PARTNER'S TEST
   Printer.CurrentX = FormLeft + VLine7 + 350
   Printer.CurrentY = FormTop + HLine2 + 700
   Printer.Print "____/______"
   Printer.CurrentX = FormLeft + VLine7 + 400
   Printer.CurrentY = Printer.CurrentY + 75
   Printer.Print "MM / YYYY"
   
   'FP METHODS
   Printer.CurrentX = FormLeft + VLine8 + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "0 = None"
   
   'CONDOM USE
   Printer.CurrentX = FormLeft + VLine9 + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "0 = Never"
   Printer.CurrentX = FormLeft + VLine9 + 150
   Printer.Print "1 = Always"
   Printer.CurrentX = FormLeft + VLine9 + 150
   Printer.Print "2 = Sometimes"
   Printer.CurrentX = FormLeft + VLine9 + 150
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + VLine9 + 150
   Printer.Print "99 = Other"
   
   'CONDOM USED LAST TIME
   Printer.CurrentX = FormLeft + VLine10 + 150
   Printer.CurrentY = FormTop + HLine2 + 550
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine10 + 150
   Printer.Print "1 = Yes"
   Printer.CurrentX = FormLeft + VLine10 + 150
   Printer.Print "97 = Don't know"
   Printer.CurrentX = FormLeft + VLine10 + 150
   Printer.Print "98 = N/A"
   
   'SYMPTOMS OF STI
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine7 + 340
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"

   'SYMPTOMS OF TB
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine7 + 1450
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"

   'REFERRED TO CLINIC
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine7 + 2600
   Printer.Print "0 = Not referred"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes, for STI"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Yes, for TB"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Yes, for other"
   
   'STI DIAGNOSIS
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine7 + 4800
   Printer.Print "1 = GUD     5 = PID"
   Printer.CurrentX = FormLeft + 250
  ' Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "2 = UD        6 = BUBO"
   Printer.CurrentX = FormLeft + 250
  ' Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "3 = AVD      7 = SS"
   Printer.CurrentX = FormLeft + 250
 '  Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "4 = Balanitis"
   
   'HIV
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = FormTop + HLine7 + 650
   Printer.Print "0 = Neg"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Pos"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "97 = Inconclusive"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   
   'COUPLE DISCORDANT
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = FormTop + HLine7 + 2400
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   
   'AFB
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = FormTop + HLine7 + 3875
   Printer.Print "0 = Neg"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Pos"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Borderline"
   Printer.CurrentX = FormLeft + VLine11 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   
   'STI TREATMENT
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = FormTop + HLine7 + 650
   Printer.Print "1 = GUD     5 = PID"
   Printer.CurrentX = FormLeft + VLine12 + 250
  ' Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "2 = UD        6 = BUBO"
   Printer.CurrentX = FormLeft + VLine12 + 250
  ' Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "3 = AVD      7 = SS"
   Printer.CurrentX = FormLeft + VLine12 + 250
  ' Printer.CurrentY = Printer.CurrentY + 25
   Printer.Print "4 = Balanitis"
      
   
   
   'TUBERCULOSIS
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = FormTop + HLine7 + 2050
   Printer.Print "0 = No"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Yes"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Referred to TBP"
   Printer.CurrentX = FormLeft + VLine12 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Prophylaxis"
   
   
   'RISK REDUCTION PLAN
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = FormTop + HLine7 + 340
   Printer.Print "0 = None"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = Abstinence"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Client will have one partner"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Client will ask partner to be"
   Printer.CurrentX = FormLeft + VLine13 + 550
   Printer.Print "Monogamous"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "4 = Increase use of condoms"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "5 = Reduce number of partners"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "6 = Eliminate high risk partners"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "7 = Change alcohol/ drug use"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "8 = Retest for HIV"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "9 = Test partner for HIV"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "10 = Attend Post Test Club"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "11 = Disclose HIV status"
   Printer.CurrentX = FormLeft + VLine13 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "99 = Other plan ___________"
   
   Printer.FontItalic = True
   Printer.FontBold = True
   Printer.CurrentX = FormLeft + VLine13 + 350
   Printer.CurrentY = Printer.CurrentY + 200
   Printer.Print "Circle all answers that apply"
   Printer.FontItalic = False
   Printer.FontBold = False

   'CLIENT REFERRED TO
   Printer.FontItalic = True
   Printer.FontBold = True
   Printer.CurrentX = FormLeft + 2350
   Printer.CurrentY = FormTop + HLine8 + 35
   Printer.Print "Circle all that apply"
   Printer.FontItalic = False
   Printer.FontBold = False
     
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = FormTop + HLine8 + 340
   Printer.Print "0 = Not referred"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "1 = PLWA Assn (NAPHAM)"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "2 = Hospital/ Clinic"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "3 = Post Test Club"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "4 = Home Based Care"
   Printer.CurrentX = FormLeft + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "5 = FP Clinic (BLM)"
   
   Printer.CurrentX = FormLeft + 2600 + 250
   Printer.CurrentY = FormTop + HLine8 + 340
   Printer.Print "6 = TB Clinic"
   Printer.CurrentX = FormLeft + 2600 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "7 = MACRO Clinic"
   Printer.CurrentX = FormLeft + 2600 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "8 = PMTCT Center"
   Printer.CurrentX = FormLeft + 2600 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "98 = N/A"
   Printer.CurrentX = FormLeft + 2600 + 250
   Printer.CurrentY = Printer.CurrentY + 100
   Printer.Print "99 = Other"
   
   'SERVICE(S) RENDERED
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = FormTop + HLine8 + 580
   Printer.Print "0 = No      1 = Yes"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = FormTop + HLine8 + 1280
   Printer.Print "0 = No      1 = Yes"
   Printer.CurrentX = FormLeft + VLine14 + 250
   Printer.CurrentY = FormTop + HLine8 + 1980
   Printer.Print "0 = No      1 = Yes"

   'COMDOMS GIVEN BY COUNSELOR
'   Printer.CurrentX = FormLeft + VLine15 + 250
'   Printer.CurrentY = FormTop + HLine8 + 340
'   Printer.Print "0 = No      1 = Yes"

   'Draw some shaded boxes where text will be ahnd written by the counselor
   Printer.ForeColor = RGB(242, 242, 242)
   Printer.Line (FormLeft + VLine2 + 10, FormTop + 2200)-Step(VLine3 - VLine2 - 20, 650), , BF
   Printer.Line (FormLeft + VLine12 + 10, FormTop + HLine7 + 5280)-Step(VLine13 - VLine12 - 20, 650), , BF
   Printer.Line (FormLeft + VLine15 + 10, FormTop + HLine8 + 325)-Step(FormWidth - VLine15 - 30, 650), , BF
   

   'Reset the printer to the desired one
  ' Dim NewPtr As Printer
  ' For Each NewPtr In Printers
  '    List1.AddItem NewPtr.DeviceName
  '    If NewPtr.DeviceName = "\\BEVERLY\HP" Then
  '       Set Printer = NewPtr
  '    End If
  ' Next
   
   'Add the patient's number as a barcode
'   If Loc_PatNum <> "" Then
'      BarCode39Ctrl1.BarHeight = 600
'      BarCode39Ctrl1.StartX = 500
'      BarCode39Ctrl1.StartY = 0
'      BarCode39Ctrl1.BarString = Loc_PatNum
'      BarCode39Ctrl1.PrintBarCode
'   Else
'      Printer.Line (500, PatTop)-Step(3800, 600), , B
'      Printer.CurrentX = 1500
'      Printer.CurrentY = 200
'      Printer.Print "Barcode Printed Here"
'   End If
   
   
   
'   Printer.CurrentY = PatTop + 850
'   Printer.Print vbTab & "First Name:" & vbTab & Loc_PatFirstName
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Last Name:" & vbTab & Loc_PatLastName
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Number:" & vbTab & Loc_PatNum
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Sex:" & vbTab & vbTab & Loc_PatSex
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Date of Birth:" & vbTab & Loc_PatDOB
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Age:" & vbTab & vbTab & Loc_PatAge
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Weight:" & vbTab & vbTab & Loc_PatWt
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.Print vbTab & "Wt for Age:" & vbTab & Loc_PatPctWtForAge
'
'   Printer.CurrentY = PatTop + 850
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Admission Diagnosis:" & vbTab & Loc_PatDx1
'   Printer.CurrentY = Printer.CurrentY + 60
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Area Living:" & vbTab & vbTab & Loc_PatAddress
'   Printer.CurrentY = Printer.CurrentY + 230
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Religion:" & vbTab & vbTab & "_________________________"
'   Printer.CurrentY = Printer.CurrentY + 230
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Date of Admission:" & vbTab & "_________________________"
'   Printer.CurrentY = Printer.CurrentY + 230
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Time of Admission:" & vbTab & "_________________________"
'   Printer.CurrentY = Printer.CurrentY + 230
'   Printer.CurrentX = RightCol2
'   Printer.Print vbTab & "Admitted by:" & vbTab & vbTab & "_________________________"
'
'   Printer.FontSize = 11
'
'   'put in SOAPIER headings
'   Printer.CurrentX = 0
'   Printer.CurrentY = PatTop + 3900
'   Printer.Print vbTab + "Subjective:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Objective:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Assessment:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Plan:" & vbTab & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Intervention:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Evaluation:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 300
'
'   'Printer.CurrentX = 0
'   Printer.Print vbTab + "Reassessment:" & vbTab & " _____________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 140
'   Printer.Print vbTab + " __________________________________________________________________________________________________"
'   Printer.CurrentY = Printer.CurrentY + 100
'   Printer.Print vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "Please use both sides to save paper ..."
   
   Printer.EndDoc

End Sub

'Patient properties start here
Property Let PatFirstName(ByVal FN As String)
   Loc_PatFirstName = FN
End Property

Property Let PatLastName(ByVal LN As String)
   Loc_PatLastName = LN
End Property

Property Let PatNum(ByVal PN As String)
   Loc_PatNum = PN
End Property

Property Let PatSex(ByVal PS As String)
   Loc_PatSex = PS
End Property

Property Let PatDOB(ByVal BD As String)
   Loc_PatDOB = BD
End Property

Property Let PatAge(ByVal PA As String)
   Loc_PatAge = PA
End Property

Property Let PatWt(ByVal PW As String)
   Loc_PatWt = PW
End Property

Property Let PatPctWtForAge(ByVal WA As String)
   Loc_PatPctWtForAge = WA
End Property

Property Let PatDx1(ByVal DX As String)
   Loc_PatDx1 = DX
End Property

Property Let PatAddress(ByVal PA As String)
    Loc_PatAddress = PA
End Property

Private Sub UserControl_Initialize()

   'Initialize the Patient Details
   CurrentPatFirstName = ""
   CurrentPatLastName = ""
   CurrentPatNum = ""
   CurrentPatSex = ""
   CurrentPatAge = ""
   CurrentPatWt = ""
   CurrentPatPctWtForAge = ""

End Sub
